home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invisible Universe
/
Invisible Universe (1995)(Voyager)[Mac-PC].iso
/
mac
/
UNIVERSE
/
SHARED.DIR
/
01039_Script_sbcrxxx
< prev
next >
Wrap
Text File
|
1995-11-21
|
1KB
|
56 lines
-- standard button contents
--property myRollover, myPressed, myChannel, myScript, ancestor
--
--on birth me, sp, ro, pr, sc
-- set ancestor to birth(script "sbc",sp, ro, pr, sc)
-- set myRollover to (the number of cast ro)
-- set myPressed to (the number of cast pr)
-- set myScript to sc
-- set myChannel to integer(sp)
-- return me
--end
on sbcrpress info
global gRetraceSbcR
set myChannel = integer(item 4 of info)
set myPressed = integer(item 6 of info)
puppetSprite myChannel,TRUE
set the castNum of sprite myChannel to myPressed
updateStage
puppetSprite myChannel, false
-- set t = the ticks
--
-- repeat while (t+30) > the ticks
-- end repeat
-- if the mouseDown then
set gRetraceSbcR = 1
--sbcrdoScript info
set command = item 7 of info
do command
-- end if
end
on sbcrdoScript theLine
global gRetraceSbcR
if gRetraceSbcR then
set gRetraceSbcR= 0
exit
end if
--sbcdoScript theLine
end doScript
on sbcrrollo myChan, myRollo
sbcrollo myChan, myRollo
end sbcrrollo
on sbcrnorm theLine
sbcnorm theLine
end sbcrnorm